sub samcoupeborder(tbdv as uinteger):
  out $FE,tbdv band 7
  end sub
 
